REM *********************************************************
REM *** Format Internal script
REM *********************************************************

REM 10 FOREIGN KeyOK(0)
10 FOREIGN ClearOSD()
20 LET FOpenTest = "A:\OneCard$\OneCardParam.txt"
30 LET ret = 0
40 FOREIGN ret = FM_FileCmd(FOpenTest,1,1)
50 IF ret < 0 THEN 60 ELSE 1000
60 FOREIGN ScreenInt32_Hex(10,60,ret)
REM 70 SYSTEM delay_us(1000000)


100 LET lcdprint = "Format Internal Start"
110 SYSTEM ScreenString(10,80,lcdprint)
120 SYSTEM delay_us(1000000)

200 LET deleteresult = 0
REM Internal:0, External:1
210 LET DRV_NO = 0
220 FOREIGN Format(DRV_NO)
230 LET lcdprint = "Format Finish"
240 SYSTEM ScreenString(10,100,lcdprint)
250 SYSTEM delay_us(1000000)

1000 END

RUN